plot_ly(data, x = ~date, y = ~mm, type = 'bar')
## Warning: Ignoring 7813 observations
plot_ly(data, x = ~date, y = ~Sal, type = 'scatter', mode = "line")
## Warning: Ignoring 50 observations
plot_ly(data, x = ~date, y = ~TA, type = 'scatter', mode = "lines")
plot_ly(data, x = ~date, y = ~Depth, type = 'scatter', mode = "lines")
plot_ly(data, x = ~date, y = ~NDVI_camera, type = 'scatter', mode = "lines")
plot_ly(data, x = ~date, y = ~pH, type = 'scatter', mode = "lines")
plot_ly(data, x = ~date, y = ~SWC, type = 'scatter', mode = "lines")
data %>%
group_by(Year2) %>%
mutate(ANN_NEE = er_ANNnight + gpp_ANNnight,
Reich_NEE = er_Reichstein + gpp_Reichstein,
linear_NEE = er_linear + gpp_linear,
ANN = cumsum(ANN_NEE),
Reich = cumsum(Reich_NEE),
linear = cumsum(linear_NEE)) %>%
select(ANN, Reich, linear, Year2, DOY2) %>%
pivot_longer(cols = c(ANN, Reich, linear),
names_to = "Method",
values_to = "cum_NEE") %>%
drop_na() %>%
filter(DOY2 > 1,
Year2 != "2013-2014") %>%
ggplot(aes(x = DOY2, y = cum_NEE, color = Year2)) +
facet_wrap(~Method) +
ylab("Cumulative NEE( µmol CO2 m-2 s-1)") +
xlab("Days since April 1st") +
geom_line() +
theme_bw()
data %>%
group_by(Year2) %>%
mutate(ANN = cumsum(er_ANNnight),
Reich = cumsum(er_Reichstein),
linear = cumsum(er_ANNnight)) %>%
select(ANN, Reich, linear, Year2, DOY2) %>%
pivot_longer(cols = c(ANN, Reich, linear),
names_to = "Method",
values_to = "cum_ER") %>%
drop_na() %>%
filter(DOY2 > 1,
Year2 != "2013-2014") %>%
ggplot(aes(x = DOY2, y = cum_ER, color = Year2)) +
facet_wrap(~Method) +
ylab("Cumulative ER( µmol CO2 m-2 s-1)") +
xlab("Days since April 1st") +
geom_line() +
theme_bw()
data %>%
group_by(Year2) %>%
mutate(ANN = cumsum(gpp_ANNnight),
Reich = cumsum(gpp_Reichstein),
linear = cumsum(gpp_ANNnight)) %>%
select(ANN, Reich, linear, Year2, DOY2) %>%
pivot_longer(cols = c(ANN, Reich, linear),
names_to = "Method",
values_to = "cum_GPP") %>%
drop_na() %>%
filter(DOY2 > 1,
Year2 != "2013-2014") %>%
ggplot(aes(x = DOY2, y = cum_GPP, color = Year2)) +
facet_wrap(~Method) +
ylab("Cumulative GPP ( µmol CO2 m-2 s-1)") +
xlab("Days since April 1st") +
geom_line() +
theme_bw()